COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(m-defun qfib (n)
C00005 ENDMK
C⊗;
(m-defun qfib (n)
 (cond ((lessp n 2) 1)
       (t (qlet t ((n-1 (fib (1- n)))
		   (n-2 (fib (- n 2))))
		(+ n-1 n-2)))))

(m-defun fib (n)
 (cond ((lessp n 2) 1)
       (t (+ (fib (1- n)) (fib (- n 2))))))

(qfib 15)
(fib 15)
89 
Number of Processors:	4
Process Creation Time	0
Global Read Time	0
Global Write Time	0
Processes Created:	2
Processes Scheduled:	3
Read Conflicts:		0
Write Conflicts:	0
Wait Cycles:		2615
Active Cycles:		4263
Multiprocessor Steps:	2653
=> 
89 
Number of Processors:	4
Process Creation Time	0
Global Read Time	0
Global Write Time	0
Processes Created:	0
Processes Scheduled:	1
Read Conflicts:		0
Write Conflicts:	0
Wait Cycles:		0
Active Cycles:		4247
Multiprocessor Steps:	4248
=> 
987 
Number of Processors:	4
Process Creation Time	0
Global Read Time	0
Global Write Time	0
Processes Created:	2
Processes Scheduled:	3
Read Conflicts:		0
Write Conflicts:	0
Wait Cycles:		29255
Active Cycles:		47367
Multiprocessor Steps:	29293
=> 
987 
Number of Processors:	4
Process Creation Time	0
Global Read Time	0
Global Write Time	0
Processes Created:	0
Processes Scheduled:	1
Read Conflicts:		0
Write Conflicts:	0
Wait Cycles:		0
Active Cycles:		47351
Multiprocessor Steps:	47352
=> 
(quotient 47352.0 29293.0)
1.61649542